# To Load Libraries
library(tidyverse)
library(rtweet)
library(dplyr)
library(ggplot2)
library(stringr)
library(tidytext)
library(plotrix)
library(radarchart)
library(frequency)
library(wordcloud)
library(syuzhet)
library(caTools)
library(tm)
library(rtweet)
#covid19_tweets <- search_tweets("#covid19",n=10000,include_rts=FALSE,retryonratelimit=TRUE)
sentimentss <- read.csv("C:/Users/jaanu/Downloads/covid19_tweets.csv",stringsAsFactors = F)
sentiment <-sentimentss[,c(3,4,5,6,11,12,13,14,32,34,37,42,43,45,64,65,66,67,68,73,74,77,78,79,82,84)]
str(sentiment)
'data.frame': 645048 obs. of 26 variables:
$ created_at : chr "2021-12-01T03:22:30Z" "2021-12-01T03:22:30Z" "2021-12-01T03:22:27Z" "2021-12-01T03:22:25Z" ...
$ screen_name : chr "SpCovid" "chrisfrayer" "OCHNY1" "SH_144000" ...
$ text : chr "30/11/2021 - Cidade de São Paulo\n\nMédia de óbitos (15 dias): 17 (-1)\nMédia de internados UTI (7 dias): 1"| __truncated__ "â\201¦@Min_Schulerâ\201© your assistant died from #covid19 and you still insist on playing games?! Dispicable! "| __truncated__ "@JimLangevin @CISAJen #BlackLivesMatter #COVID19 #RighttoSurvival #OccupyCapitolHil #BoycottUSAID At 00:00 on N"| __truncated__ "#Ireland, vaccine mandate for healthcare workers..\n#COVID19 https://t.co/EhLhvwp4B4" ...
$ source : chr "Twitter Web App" "Twitter for iPhone" "Twitter Web App" "Twitter Web App" ...
$ is_quote : logi FALSE FALSE FALSE TRUE TRUE TRUE ...
$ is_retweet : logi FALSE FALSE FALSE FALSE FALSE FALSE ...
$ favorite_count : int 0 0 0 0 2 0 0 2 0 0 ...
$ retweet_count : int 0 0 0 0 1 0 0 1 0 0 ...
$ lang : chr "pt" "en" "en" "en" ...
$ quoted_text : chr NA NA NA "Mandatory Covid-19 vaccination of healthcare workers considered by Nphet https://t.co/Hsxt2tKxCk" ...
$ quoted_favorite_count : int NA NA NA 0 1200 417 407 438 1092 2 ...
$ quoted_followers_count: int NA NA NA 40 61002 1748 267005 61002 267006 53 ...
$ quoted_friends_count : int NA NA NA 208 2640 2857 6 2640 6 219 ...
$ quoted_location : chr NA NA NA "" ...
$ place_name : chr NA NA NA NA ...
$ place_full_name : chr NA NA NA NA ...
$ place_type : chr NA NA NA NA ...
$ country : chr NA NA NA NA ...
$ country_code : chr NA NA NA NA ...
$ name : chr "Painel Covid Cidade de São Paulo" "chris frayer" "Occupy Capitol Hill (New York)" "Shaya" ...
$ location : chr "São Paulo - SP" "Treaty One " "New York" "" ...
$ protected : logi FALSE FALSE FALSE FALSE FALSE FALSE ...
$ followers_count : int 56 2100 454 80 80 80 80 80 80 80 ...
$ friends_count : int 22 1733 86 128 128 128 128 128 128 128 ...
$ favourites_count : int 7 11903 10 4573 4573 4573 4573 4573 4573 4573 ...
$ verified : logi FALSE FALSE FALSE FALSE FALSE FALSE ...
sentiment$lang <- as.factor(sentiment$lang)
sentiment$quoted_text <- as.factor(sentiment$quoted_text)
sentiment$quoted_location <- as.factor(sentiment$quoted_location)
sentiment$place_name <- as.factor(sentiment$place_name)
sentiment$place_full_name <- as.factor(sentiment$place_full_name)
sentiment$place_type <- as.factor(sentiment$place_type)
sentiment$country <- as.factor(sentiment$country)
sentiment$country_code <- as.factor(sentiment$country_code)
sentiment$name <- as.factor(sentiment$name)
sentiment$location <- as.factor(sentiment$location)
library(dplyr)
sentiment %>%
group_by(country) %>%
summarise(max=max(retweet_count)) %>%
top_n(50)
Selecting by max
covid19 <- subset(sentiment,lang != "und")
sentiment1 <- subset(sentiment, country != "")
sentiment1
top_10rc <- sentiment1%>%
group_by(country) %>%
summarise(max = max(retweet_count)) %>%
top_n(10)
Selecting by max
head(top_10rc)
library(ggplot2)
ggplot(sentiment1,aes(country)) + geom_bar(aes(fill=lang)) + labs(title = "Maximum Number of tweets from different countries(With multiple languages)",caption = "Source:Data from Twitter API") + theme(axis.text.x = element_text(angle = 90))
## Top tweeting location
top5cvt_loc <- sentiment1 %>%
filter(!is.na(place_full_name)) %>%
count(place_full_name, sort = TRUE) %>%
top_n(5)
Selecting by n
head(top5cvt_loc)
NA
# Data Visualization for Top tweeting location
ggplot(top5cvt_loc,aes(place_full_name,n)) + geom_bar(stat="identity",fill="darkgreen") +
labs(title="Top Tweeting location",x="Location",y="Count")
sentiment1 %>%
count(screen_name, sort = TRUE) %>%
top_n(10) %>%
mutate(screen_name = paste0("@", screen_name))
Selecting by n
# Most Liked Tweets
LT <- sentiment1 %>%
arrange(-favorite_count)%>%
top_n(1000,favorite_count) %>%
select(created_at, screen_name, text, favorite_count,country)
LT
# Most liked Tweets Graph
ggplot(LT,aes(screen_name,favorite_count)) + geom_bar(stat="identity",aes(fill=country)) +
labs(title = "Most liked Tweets Vs Favorite count",x="Screen Name(User Name)",y="Favorite Count") + theme(axis.text.x = element_text(angle = 90))
# Most retweeted tweet
retw <- sentiment1 %>%
arrange(-retweet_count) %>%
top_n(1000,retweet_count) %>%
select(created_at, screen_name, text, retweet_count,country)
#Most Retweeted tweets
ggplot(retw,aes(screen_name,retweet_count)) + geom_bar(stat="identity",aes(fill=country)) +
labs(title = "Most Retweeted tweets Vs Retweet count",x="Screen Name(User Name)",y="Retweet Count") + theme(axis.text.x = element_text(angle = 90))
text = sentiment1$text # save tweets to another data set "text"
text = gsub("(RT|via)((?:\\b\\W*@\\w+)+)","",text) #remove names
text = gsub("http[^[:blank:]]+","",text) #remove html links
text = gsub("@\\w+","",text) #remove people names
text = gsub("[[:punct:]]","",text) #remove punctuation
text = trimws(text, which = c("both", "left", "right")) # remove white space
text = gsub('[[:digit:]]+', '', text) # remove digits
text = gsub("[\r\n]", "", text) # remove line breaks
text = iconv(text, to = "ASCII//TRANSLIT") # remove not readable standard text
text = iconv(text, "ASCII", "UTF-8", sub="") # remove not readable standard text
text = tolower(text) # lower case
sentiment1
library(dplyr)
library(stringr)
library(tidytext)
remove_reg <- "&|<|>" #regular expression
newstops <- c('covid_19','covid-19','covid 19','coronavirus','covid19', '#coronavirus', '#coronavirusoutbreak', '#coronavirusPandemic', '#covid19', '#covid_19', '#epitwitter', '#ihavecorona', '#StayHomeStaySafe', '#TestTraceIsolate','de','la','en','el',"se","las","los","por","con","del","les") #hashtags that need to be removed
tidy_tweets <- sentiment1 %>%
mutate(text = str_remove_all(text, remove_reg)) %>% #remove regular expression
unnest_tokens(word, text, token = 'tweets',strip_url = TRUE) %>% #work tokenizations
filter(!word %in% stop_words$word, #remove stopwords
!word %in% str_remove_all(stop_words$word, "'"),
!word %in% newstops, #remove those hashtags
str_detect(word, "[a-z]"))
Using `to_lower = TRUE` with `token = 'tweets'` may not preserve URLs.
library(frequency)
#get words and their frequency
frequency_global <- tidy_tweets %>% count(word, sort=T)
#get the top 10
frequency_global %>% top_n(10)
Selecting by n
pride_prejudice <- tidy_tweets %>% filter(source == “Twitter for iPhone”)
pride_prejudice
library(tidyr) tweets111 <- pride_prejudice %>% inner_join(get_sentiments(“afinn”)) %>% count(source, index = linenumber %/% 80, sentiment) %>% pivot_wider(names_from = sentiment, values_from = n, values_fill = 0) %>% mutate(sentiment = positive - negative) library(ggplot2) tweets111 %>% ggplot( aes(index, sentiment, fill = Senti)) + geom_col(show.legend = FALSE) + facet_wrap(~book, ncol = 2, scales = “free_x”)
library(wordcloud)
wordcloud(frequency_global$word,frequency_global$n, min.freq = 100,
scale=c(4.5, .3), random.order = FALSE, random.color = FALSE,
colors = brewer.pal(8, "Dark2"), res=800)
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
#get cleaned tweets that are located in the US
tidy_us <- tidy_tweets[is.na(tidy_tweets$country_code)==F & tidy_tweets$country_code == "US", ]
#get words and their frequency
frequency_us <- tidy_us %>% count(word, sort=T)
#get the top 10
frequency_us %>% top_n(10)
Selecting by n
wordcloud(frequency_us$word,frequency_us$n, min.freq =50, scale=c(4.5, .2), random.order = FALSE, random.color = FALSE
,colors = brewer.pal(8, "Dark2"), res=800)
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
Warning in strwidth(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in strheight(words[i], cex = size[i], ...) :
"res" is not a graphical parameter
Warning in text.default(x1, y1, words[i], cex = size[i], offset = 0, srt = rotWord * :
"res" is not a graphical parameter
tweets_bing<-tidy_tweets%>%
# Implement sentiment analysis using the "bing" lexicon`
inner_join(get_sentiments("bing"))
Joining, by = "word"
perc<-tweets_bing %>%
count(sentiment)%>% #count sentiment
mutate(total=sum(n)) %>% #get sum
group_by(sentiment) %>% #group by sentiment
mutate(percent=round(n/total,2)*100) %>% #get the proportion
ungroup()
label <-c( paste(perc$percent[1],'%',' - ',perc$sentiment[1],sep=''),#create label
paste(perc$percent[2],'%',' - ',perc$sentiment[2],sep=''))
library(plotrix)
pie3D(perc$percent,labels=label,labelcex=1.1,explode= 0.1,
main="Worldwide Sentiment") #create a pie chart
top_words <- tweets_bing %>%
# Count by word and sentiment
count(word, sentiment) %>%
group_by(sentiment) %>% #group ny sentiment
# Take the top 10 for each sentiment
top_n(10) %>%
ungroup() %>%
# Make word a factor in order of n
mutate(word = reorder(word, n))
Selecting by n
#plot the result
ggplot(top_words, aes(word, n, fill = sentiment)) +
geom_col(show.legend = FALSE) +
geom_text(aes(label = n, hjust=1), size = 3.5, color = "black") +
facet_wrap(~sentiment, scales = "free") +
coord_flip() +
ggtitle("Most Common Positive and Negative words (Global)") +
theme(plot.title = element_text(size = 14, face = "bold",hjust = 0.5))
library(radarchart)
tidy_tweets %>%
# implement sentiment analysis using the "nrc" lexicon
inner_join(get_sentiments("nrc")) %>%
# remove "positive/negative" sentiments
filter(!sentiment %in% c("positive", "negative")) %>%
#get the frequencies of sentiments
count(sentiment,sort = T) %>%
#calculate the proportion
mutate(percent=100*n/sum(n)) %>%
select(sentiment, percent) %>%
#plot the result
chartJSRadar(showToolTipLabel = TRUE, main = "NRC Radar")
Joining, by = "word"
tidy_tweets %>%
# implement sentiment analysis using the "nrc" lexicon
inner_join(get_sentiments("nrc")) %>%
# remove "positive/negative" sentiments
filter(!sentiment %in% c("positive", "negative")) %>%
#get the frequencies of sentiments of words
count(word,sentiment) %>%
group_by(sentiment) %>%
top_n(10) %>%
ungroup() %>%
mutate(word=reorder(word,n)) %>%
#plot the sentiment word frequency
ggplot(aes(x=word,y=n,fill=sentiment)) +
geom_col(show.legend = FALSE) +
facet_wrap(~ sentiment, scales = "free") +
coord_flip() +
ggtitle(label = "Sentiment Word Frequency (Global)") +
theme(plot.title = element_text(size = 14, face = "bold",hjust = 0.5))
Joining, by = "word"
Selecting by n
library(tidytext)
library(syuzhet)
w <- get_sentiment(sentiment1$text)
sentiment_score= as.data.frame(w)
colnames(sentiment_score)[1] <- "sentiment_score"
tweets <- cbind(sentiment1$text,sentiment_score)
colnames(tweets)[1] <- "text"
hist(tweets$sentiment_score,breaks = 5)
tweets$Senti <- ifelse(tweets$sentiment_score >= 0,"Positive","Negative")
colnames(tweets)[3] <- "Senti"
tweets$Senti <- as.factor(tweets$Senti)
#tweets$Negative <- as.factor(tweets$sentiment_score <= -1)
#table(tweets$Negative)
#tweets$Positive <- as.factor(tweets$sentiment_score>=1)
#table(tweets$Positive)
str(tweets)
'data.frame': 15012 obs. of 3 variables:
$ text : chr "Aman dan bermanfaat \n________\nProkes Tangkal Omicron\n#COVID19 https://t.co/fM4uL6kINR" "People ask me about my #COVID19 mask.\n\nMy hubby & sis-in-law created the @artinapromo Choose Kind Foundat"| __truncated__ "Billions of people are being denied the protection from #COVID19 they urgently need. No-one is safe until every"| __truncated__ "Ayo tetap disiplin prokes\n________\nProkes Tangkal Omicron\n#COVID19 https://t.co/zHXL8ls0Fv" ...
$ sentiment_score: num 0 2.4 2.05 0 -0.4 0 0 -1.2 -0.6 0 ...
$ Senti : Factor w/ 2 levels "Negative","Positive": 2 2 2 2 1 2 2 1 1 2 ...
#A corpus is a collection of documents.
#We will need to convert our tweets to a corpus for pre-processing. Various function in the tm package can be used to create a corpus in many different ways. #We will create it from the tweet column of our data frame using two functions, VCorpus() and VectorSource(). We feed this to latter the Tweets variable of the tweets data frame.
library(tm)
corpus <- VCorpus(VectorSource(tweets$text))
corpus
<<VCorpus>>
Metadata: corpus specific: 0, document level (indexed): 0
Content: documents: 15012
#corpus[[1]]
corpus <- tm_map(corpus, content_transformer(tolower)) #First step is to transform all text to lower case
#corpus[[1]]
corpus <- tm_map(corpus, PlainTextDocument) #converts corpus to a Plain Text Document
corpus <- tm_map(corpus, removePunctuation) #Removing punctuation
stopwords("english")[1:50] #Removing stop words
[1] "i" "me" "my" "myself" "we" "our" "ours" "ourselves" "you"
[10] "your" "yours" "yourself" "yourselves" "he" "him" "his" "himself" "she"
[19] "her" "hers" "herself" "it" "its" "itself" "they" "them" "their"
[28] "theirs" "themselves" "what" "which" "who" "whom" "this" "that" "these"
[37] "those" "am" "is" "are" "was" "were" "be" "been" "being"
[46] "have" "has" "had" "having" "do"
corpus <- tm_map(corpus, removeWords, c("covid", stopwords("english")))
#corpus[[1]]
corpus <- tm_map(corpus, stemDocument) #Stemming
#corpus[[1]]
library(SnowballC)
DTM <- DocumentTermMatrix(corpus) #Create a Document Term Matrix
DTM
<<DocumentTermMatrix (documents: 15012, terms: 4367)>>
Non-/sparse entries: 261792/65295612
Sparsity : 100%
Maximal term length: 68
Weighting : term frequency (tf)
freq <- findFreqTerms(DTM, lowfreq = 50)
freq
[1] "000" "100daysofcod" "1st" "2020"
[5] "2021" "2022" "30th" "4th"
[9] "600" "☞ï¸\u008f" "€" "ã”micron"
[13] "देशों" "से" "बात" "मकान"
[17] "में" "कैसे" "को" "के"
[21] "है" "हैं" "है।" "हो"
[25] "à¤à¥€" "चली" "…" "–"
[29] "•" "“" "“mandatesâ€\u009d" "⬆ï¸\u008f"
[33] "⬇ï¸\u008f" "â\u008f°" "ã\u0081frica" "aã±o"
[37] "abpoli" "absolut" "acerca" "across"
[41] "activ" "actual" "actualizaciã³n" "addictologi"
[45] "adopt" "adult" "africa" "age"
[49] "agenda" "ago" "agora" "ahora"
[53] "air" "algãºn" "alguno" "alitalia"
[57] "allem" "allow" "almost" "also"
[61] "alway" "amigo" "amp" "announc"
[65] "ano" "anoth" "ant" "anti"
[69] "antigen" "antigentest" "anyon" "arabcup"
[73] "area" "argentina" "argument" "arriv"
[77] "art" "artificialintellig" "asã" "ask"
[81] "attend" "auch" "aus" "australia"
[85] "avail" "avanc" "avec" "away"
[89] "ayer" "ayo" "ayuda" "back"
[93] "balondeoro" "ban" "bar" "basmi"
[97] "bassepoint" "battl" "bayern" "bebek"
[101] "becom" "bei" "beij" "belangrijk"
[105] "believ" "best" "better" "bien"
[109] "big" "bigdata" "billion" "bis"
[113] "bitcoin" "blackandwhit" "block" "bnwphoto"
[117] "book" "boost" "booster" "boostershot"
[121] "border" "borisjohnson" "bot" "botswana"
[125] "bought" "brasil" "break" "breakingnew"
[129] "breakthrough" "brilliant" "brother" "busi"
[133] "cã³mo" "cã³rdoba" "cã³rdobaargentina" "cada"
[137] "cake" "calgari" "can" "canada"
[141] "cancel" "cant" "capit" "care"
[145] "carnav" "casal" "case" "caso"
[149] "caus" "cbse" "cbseterm1onlin" "cdnpoli"
[153] "centr" "centro" "certain" "ces"
[157] "chang" "check" "child" "childcar"
[161] "children" "china" "christma" "cifra"
[165] "citizen" "ciudad" "ciudadano" "close"
[169] "clungen" "code" "cold" "collect"
[173] "colombia" "com" "come" "comitã©"
[177] "command" "comment" "commonwealth" "commune"
[181] "como" "compani" "complet" "completa"
[185] "con" "concern" "condicion" "confirm"
[189] "consid" "contact" "contagio" "continãºa"
[193] "continu" "contra" "corona" "coronakris"
[197] "coronavirus" "cost" "counti" "countri"
[201] "court" "cover" "covid19" "covidiot"
[205] "covidvaccin" "covidvari" "creat" "crisi"
[209] "ctmâ " "cual" "cuarto" "cuenta"
[213] "cuida" "current" "cuyo" "cybersecur"
[217] "dã" "daction" "dad" "daili"
[221] "dan" "danger" "das" "dass"
[225] "dat" "data" "day" "dead"
[229] "death" "debe" "dec" "decemb"
[233] "decis" "deeplearn" "definit" "defuncion"
[237] "deja" "del" "delta" "demand"
[241] "der" "des" "desd" "despit"
[245] "detail" "dia" "dice" "die"
[249] "difficult" "digit" "digitaltransform" "director"
[253] "disappear" "discuss" "disiplin" "distribut"
[257] "dit" "divhumaspolri" "divis" "doctor"
[261] "doesn’t" "doesnt" "doge" "dolar13"
[265] "domest" "don’t" "dont" "door"
[269] "dose" "dosi" "due" "durant"
[273] "dus" "ðÿ—£" "ðÿ¦ " "ðÿ˜”"
[277] "ðÿ˜·" "ðÿ‘‡" "ðÿ‘‰" "ðÿ‘\u008dðÿ\u008f»"
[281] "ðÿ’‰" "ðÿ’ÿ" "ðÿ”´" "ðÿ”µ"
[285] "ðÿ¤”" "ðÿ‡¦ðÿ‡¹" "ðÿ‡¨ðÿ‡¦" "ðÿ‡¬ðÿ‡§"
[289] "ðÿœž" "easi" "eastern" "economi"
[293] "ecuador" "educ" "ein" "elemento"
[297] "elig" "email" "emerg" "employe"
[301] "encourag" "end" "enero" "england"
[305] "ensur" "enter" "entr" "equit"
[309] "era" "escenario" "eso" "especi"
[313] "est" "esta" "estã¡" "estã¡n"
[317] "establish" "estamo" "estoy" "estudiantil"
[321] "etc" "european" "even" "evento"
[325] "everi" "everyon" "exact" "except"
[329] "exempt" "exist" "expand" "expans"
[333] "expect" "fã¼r" "face" "facemask"
[337] "fact" "fair" "fallecido" "famili"
[341] "fan" "fecha" "feel" "ffs"
[345] "fight" "fiji" "fine" "first"
[349] "fli" "flight" "follow" "forev"
[353] "forget" "form" "forma" "fragen"
[357] "francisco" "freak" "friend" "frontlin"
[361] "fuck" "full" "fulli" "fyi"
[365] "gaan" "game" "gather" "gaziantep"
[369] "geen" "gegen" "geimpft" "german"
[373] "get" "getvaccinatednow" "give" "givingtuesday"
[377] "global" "goa" "goat" "gob"
[381] "gop" "got" "govern" "governor"
[385] "govt" "gqp" "grand" "great"
[389] "greghuntmp" "group" "grow" "guid"
[393] "haben" "hai" "han" "hand"
[397] "happi" "hay" "hcincanada" "health"
[401] "healthcar" "hear" "heard" "hello"
[405] "help" "hero" "het" "heut"
[409] "histori" "hit" "holiday" "home"
[413] "hong" "honor" "hope" "hospit"
[417] "hospital" "hot" "hour" "hoy"
[421] "httpstcolutcz0zvto" "httpstconrczzxyduq" "hubo" "î´îµî½"
[425] "ï€ï\u0081î¿ïƒï€î¬î¸îµî¹î±" "i’m" "iapolit" "ich"
[429] "ihm" "ill" "immigr" "impact"
[433] "impacto" "impfen" "impfpflicht" "impfschutz"
[437] "impfung" "import" "impos" "imposs"
[441] "includ" "incluyendo" "increas" "individu"
[445] "indoor" "infect" "infecti" "info"
[449] "inform" "informaciã³n" "infrastructur" "ini"
[453] "inicia" "inicio" "initi" "institut"
[457] "intern" "intervent" "invit" "iot"
[461] "iowahealthcar" "iplauct" "iplretent" "ireland"
[465] "isnt" "isol" "israel" "isso"
[469] "issu" "ist" "it’" "izleyemedim"
[473] "jã³vene" "jab" "jame" "jampj"
[477] "jangan" "januari" "jason" "joebiden"
[481] "johnsonout" "jour" "judg" "just"
[485] "kan" "keep" "kenney" "kerap"
[489] "kid" "kind" "know" "kong"
[493] "kryd" "label" "lahat" "lannã©"
[497] "larg" "las" "lassoci" "last"
[501] "late" "latest" "laud" "leader"
[505] "leadership" "learn" "left" "les"
[509] "let" "let’" "level" "life"
[513] "lifelab" "like" "limit" "lisa"
[517] "live" "llamosa" "local" "lockdown"
[521] "look" "los" "lose" "love"
[525] "low" "mã" "mã¡s" "mã©xico"
[529] "maã±ana" "machinelearn" "maharashtra" "mai"
[533] "major" "make" "mal" "mandatori"
[537] "mandatoryvaccin" "mani" "mansuryavasyalnä±zdeäÿildir" "mapusa"
[541] "mart" "mask" "maskup" "massiv"
[545] "mata" "matter" "may" "meant"
[549] "measur" "media" "medic" "medida"
[553] "meet" "mejor" "meno" "menschen"
[557] "merkel" "mes" "mesmo" "met"
[561] "metavers" "mga" "mgcpharma" "mil"
[565] "mind" "ministro" "miss" "mit"
[569] "mmainsanitygoa" "moderna" "mom" "momento"
[573] "money" "monochrom" "month" "mort"
[577] "mpal" "much" "mucho" "muerto"
[581] "mundo" "must" "mutacion" "mutat"
[585] "mxc" "nã£o" "nâ°" "natur"
[589] "naturalimmun" "need" "nefasto" "negat"
[593] "negro" "never" "new" "news"
[597] "newvari" "next" "nicht" "niet"
[601] "nieuw" "nigeria" "niki" "nobajemoslaguardia"
[605] "nohaysueroantiofidico" "normal" "nos" "nosotro"
[609] "noth" "nov" "nova" "novacunado"
[613] "noviembr" "now" "nowayhom" "nuestro"
[617] "nueva" "nuevo" "number" "nurs"
[621] "octob" "offer" "olafscholz" "old"
[625] "older" "omicron" "omicronvari" "omikron"
[629] "omnicron" "onbegrijpelijk" "one" "onpoli"
[633] "ont" "ontario" "ook" "open"
[637] "openseanft" "order" "other" "outbreak"
[641] "paãs" "pandem" "pandemia" "pãºblica"
[645] "par" "para" "parec" "parent"
[649] "park" "part" "parti" "partir"
[653] "pas" "pase" "pass" "passeng"
[657] "passport" "pay" "pcr" "pcrtest"
[661] "peke" "pennsylvania" "peopl" "per"
[665] "pero" "person" "persona" "personn"
[669] "petrolpric" "pfizer" "pib" "piec"
[673] "plã©niã¨rectm" "place" "plan" "play"
[677] "player" "pleas" "plus" "pneumonia"
[681] "poco" "point" "polici" "polisisumsel"
[685] "politik" "poor" "por" "porqu"
[689] "portug" "posit" "positivo" "possibl"
[693] "pour" "ppkm" "ppkmdarurat" "ppkmmikro"
[697] "prã©vention" "precio" "pressur" "prevent"
[701] "primeiro" "primera" "problem" "programm"
[705] "project" "proke" "protect" "protocol"
[709] "provid" "provincia" "przed" "public"
[713] "pune" "puntaj" "put" "quando"
[717] "quarantin" "que" "question" "quick"
[721] "quot" "rank" "rão" "rãocuarto"
[725] "rapid" "rapidtest" "rapport" "rate"
[729] "reach" "real" "realli" "receiv"
[733] "recent" "recommend" "record" "recuerda"
[737] "refus" "reinstat" "relax" "remain"
[741] "rememb" "rep" "repãºblica" "report"
[745] "repres" "repswalwel" "requir" "research"
[749] "resid" "respect" "respond" "respons"
[753] "restrict" "result" "return" "reunimo"
[757] "riesgo" "rip" "rivm" "roll"
[761] "rollout" "rtpcr" "rule" "run"
[765] "sad" "safe" "safeti" "said"
[769] "salud" "saludpublicard" "sanitaria" "sãntoma"
[773] "sarscov2" "sat" "satan" "save"
[777] "say" "school" "schweiz" "scienc"
[781] "scientif" "second" "see" "seem"
[785] "segãºn" "self" "sens" "sent"
[789] "ser" "seri" "serious" "servic"
[793] "set" "sever" "share" "shem"
[797] "shock" "shop" "shot" "sibl"
[801] "sich" "sie" "sign" "signific"
[805] "sin" "sinc" "sobr" "social"
[809] "socialdistanc" "socialis" "son" "soon"
[813] "sorri" "soul" "southafrica" "southern"
[817] "soy" "special" "spiderman" "spread"
[821] "staff" "stand" "start" "state"
[825] "stay" "staysaf" "still" "stock"
[829] "stop" "streetmonochrom" "streetphotographi" "strict"
[833] "student" "sua" "subscrib" "subvent"
[837] "suffer" "support" "suprem" "sur"
[841] "sure" "sus" "suspend" "swab"
[845] "sydney" "take" "taken" "tangkal"
[849] "tãº" "tatsã¤chlich" "team" "tell"
[853] "tem" "tener" "test" "testaram"
[857] "testen" "tetap" "tetra" "thank"
[861] "they’r" "think" "thursday" "tiempo"
[865] "tienen" "til" "time" "tire"
[869] "titr" "toda" "today" "todo"
[873] "togeth" "tomar" "tonight" "took"
[877] "total" "toward" "train" "transport"
[881] "travel" "travelban" "tri" "trust"
[885] "tudo" "tuesday" "turismo" "twitter"
[889] "two" "ù„ù„ø§ø³øªø«ù…ø§ø±" "ù\u0081ø±øµø©" "uci"
[893] "ùƒùˆø±ùˆù†ø§" "uma" "una" "und"
[897] "undergo" "unemploy" "unless" "unvaccin"
[901] "upon" "urgent" "use" "uso"
[905] "vã£o" "vaccin" "vaccinemand" "vaccinequ"
[909] "vaccineswork" "vacina" "vacuna" "vacunaciã³n"
[913] "vacunacion" "vacunacovid19" "vaksinasi" "valora"
[917] "varanasipolic" "variant" "vaxx" "venezuela"
[921] "vermont" "vida" "viral" "virus"
[925] "virusairborn" "visit" "visitor" "von"
[929] "voor" "vor" "wã¤re" "wait"
[933] "want" "wash" "wave" "way"
[937] "we’r" "wear" "wearamask" "weather"
[941] "week" "welcom" "well" "wgal"
[945] "whaspeci" "whatsapp" "whether" "wie"
[949] "wien" "wife" "will" "winter"
[953] "wir" "without" "wonder" "wont"
[957] "word" "work" "worker" "world"
[961] "worldaidsday" "wuhan" "yarn" "year"
[965] "yes" "yesterday" "yet" "your"
[969] "zambia" "ziekenhuizen" "zone" "zum"
[973] "zur"
#Remove sparse terms
sparse_DTM <- removeSparseTerms(DTM, 0.98)
sparse_DTM
<<DocumentTermMatrix (documents: 15012, terms: 51)>>
Non-/sparse entries: 46512/719100
Sparsity : 94%
Maximal term length: 11
Weighting : term frequency (tf)
#Convert the DTM to a data frame
tweetsSparse <- as.data.frame(as.matrix(sparse_DTM))
#Fix variables names in the data frame
colnames(tweetsSparse) <- make.names(colnames(tweetsSparse))
tweetsSparse$Senti <- tweets$Senti
tweetsSparse
#tweetsSparse$Negative <- tweets$Negative
#tweetsSparse$Positive <- tweets$Positive
#tweetsSparse$Negative <- as.factor(ifelse(tweetsSparse$Negative == TRUE, "Yes","No"))
#tweetsSparse$Positive <- as.factor(ifelse(tweetsSparse$Positive == TRUE, "Yes","No"))
library(caTools)
set.seed(123)
split <- sample.split(tweetsSparse$Senti, SplitRatio = 0.8)
trainSparse <- subset(tweetsSparse, split == TRUE)
testSparse <- subset(tweetsSparse, split == FALSE)
tweetLog <- glm(Senti ~ . , data = trainSparse, family = "binomial")
#PREDICTING SENTIMENT
tweetLog_predict_test <- predict(tweetLog, type = "response", newdata = testSparse)
tweetLog_predict_test <- ifelse(tweetLog_predict_test > 0.5,"Positive","Negative")
#Create confusion matrix
cmat_logRegr <- table(testSparse$Senti, tweetLog_predict_test)
cmat_logRegr
tweetLog_predict_test
Negative Positive
Negative 333 452
Positive 116 2102
# Accuracy
accu_logRegr <- (cmat_logRegr[1,1] + cmat_logRegr[2,2])/sum(cmat_logRegr)
accu_logRegr
[1] 0.81
library(party)
library(partykit)
tweetCTREE <- ctree(Senti ~ . , data = trainSparse)
#plot
plot(tweetCTREE)
#predict
predictCTREE <- predict(tweetCTREE, newdata = testSparse, type = "response")
#create confusion matrix
cmat_CTREE <- table(testSparse$Senti, predictCTREE)
cmat_CTREE
predictCTREE
Negative Positive
Negative 681 104
Positive 74 2144
#Accuracy
accu_CTREE <- (cmat_CTREE[1,1] + cmat_CTREE[2,2])/sum(cmat_CTREE)
accu_CTREE
[1] 0.94
library(rpart)
library(rpart.plot)
library(rattle)
tweetCART <- rpart(Senti ~ . , data = trainSparse, method = "class")
#plot
prp(tweetCART)
fancyRpartPlot(tweetCART)
#predict
predictCART <- predict(tweetCART, newdata = testSparse, type = "class")
#create confusion matrix
cmat_CART <- table(testSparse$Senti, predictCART)
cmat_CART
predictCART
Negative Positive
Negative 283 502
Positive 71 2147
#Accuracy
accu_CART <- (cmat_CART[1,1] + cmat_CART[2,2])/sum(cmat_CART)
accu_CART
[1] 0.81
library(e1071)
tweetNB <- naiveBayes(Senti ~ . , data = trainSparse, laplace = 1)
#predict
predictNB <- predict(tweetNB, newdata = testSparse, type = "class")
#create confusion matrix
cmat_NB <- table(testSparse$Senti, predictNB)
cmat_NB
predictNB
Negative Positive
Negative 522 263
Positive 414 1804
#Accuracy
accu_NB <- (cmat_NB[1,1] + cmat_NB[2,2])/sum(cmat_NB)
accu_NB
[1] 0.77
library(dplyr)
library(stringr)
library(tidytext)
remove_regg <- "&|<|>" #regular expression
newstopss <- c( '#epitwitter', '#ihavecorona', '#StayHomeStaySafe', '#TestTraceIsolate','de','la','en','el',"se","las","los","por","con","del","les") #hashtags that need to be removed
tidy_tweetss <- sentiment1 %>%
mutate(text = str_remove_all(text, remove_regg)) %>% #remove regular expression
unnest_tokens(word, text, token = 'tweets',strip_url = TRUE) %>% #work tokenizations
filter(!word %in% stop_words$word, #remove stopwords
!word %in% str_remove_all(stop_words$word, "'"),
!word %in% newstopss, #remove those hashtags
str_detect(word, "[a-z]"))
Using `to_lower = TRUE` with `token = 'tweets'` may not preserve URLs.
library(frequency)
#get words and their frequency
frequency_globall <- tidy_tweetss %>% count(word, sort=T)
#get the top 10
frequency_globall %>% top_n(200)
Selecting by n
transcovid19 <- tweetsSparse
library(tidyverse)
transcovid19 = transcovid19 %>% mutate_all(as.logical)
# Clean up names
colnames(transcovid19) <- gsub(x=colnames(transcovid19),
pattern="const\\.", replacement="")
order_trans2 <- as(transcovid19,"transactions")
#transcovid19 <- data.frame(transcovid19)
summary(order_trans2)
transactions as itemMatrix in sparse format with
15012 rows (elements/itemsets/transactions) and
51 columns (items) and a density of 0.061
most frequent items:
covid19 omicron vaccin variant que (Other)
14976 2916 1656 1548 1080 24336
element (itemset/transaction) length distribution:
sizes
1 2 3 4 5 6 7 8 9 10 12
3276 3168 3384 2304 1152 900 504 216 36 36 36
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.0 2.0 3.0 3.1 4.0 12.0
includes extended item information - examples:
includes extended transaction information - examples:
write.csv(transcovid19,file = "covidtweetsSparse.csv")
itemFrequencyPlot(order_trans2,topN=30)
inspect(order_trans2[1:15])
NA
itemFrequency(order_trans2[,1:4])
aã.o amp booster can
0.024 0.065 0.031 0.031
itemFrequencyPlot(order_trans2, support = .10)
itemFrequencyPlot(order_trans2, support = .15)
itemFrequencyPlot(order_trans2,topN=10,type="absolute")
itemFrequencyPlot(order_trans2,topN=10,type="relative")
rules <- apriori(order_trans2, parameter = list(supp = 0.005, conf = 0.20, minlen =2))
Apriori
Parameter specification:
Algorithmic control:
Absolute minimum support count: 75
set item appearances ...[0 item(s)] done [0.02s].
set transactions ...[51 item(s), 15012 transaction(s)] done [0.00s].
sorting and recoding items ... [51 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 2 3 4 5 done [0.00s].
writing ... [1044 rule(s)] done [0.00s].
creating S4 object ... done [0.00s].
rules
set of 1044 rules
#1044 rules were formed #Minimum and maximum values for support, confidence and lift are displayed #Out of the 1044 rules formed the counts of rule length is also displayed
options(digits=2)
inspect(rules[1:10])
rules<-sort(rules, by="confidence", decreasing=TRUE)
options(digits=2)
inspect(rules[1:10])
rules<-sort(rules, by="lift", decreasing=TRUE)
options(digits=2)
inspect(rules[1:10])
rules <- apriori(order_trans2, parameter = list(supp = 0.005, conf = 0.20, minlen =2), appearance = list(default="rhs",lhs="test"))
Apriori
Parameter specification:
Algorithmic control:
Absolute minimum support count: 75
set item appearances ...[1 item(s)] done [0.00s].
set transactions ...[51 item(s), 15012 transaction(s)] done [0.00s].
sorting and recoding items ... [51 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 2 done [0.02s].
writing ... [5 rule(s)] done [0.00s].
creating S4 object ... done [0.00s].
summary(rules)
set of 5 rules
rule length distribution (lhs + rhs):sizes
2
5
Min. 1st Qu. Median Mean 3rd Qu. Max.
2 2 2 2 2 2
summary of quality measures:
support confidence coverage lift count
Min. :0.012 Min. :0.24 Min. :0.05 Min. : 1.0 Min. :180
1st Qu.:0.012 1st Qu.:0.24 1st Qu.:0.05 1st Qu.: 2.2 1st Qu.:180
Median :0.014 Median :0.29 Median :0.05 Median : 5.1 Median :216
Mean :0.021 Mean :0.42 Mean :0.05 Mean : 5.7 Mean :317
3rd Qu.:0.017 3rd Qu.:0.33 3rd Qu.:0.05 3rd Qu.: 7.1 3rd Qu.:252
Max. :0.050 Max. :1.00 Max. :0.05 Max. :13.2 Max. :756
mining info:
rules<-sort(rules, by="lift", decreasing=TRUE)
options(digits=2)
inspect(rules)
NA
#Conclusion #As we have discussed in the article, association rules are used extensively in a variety of fields. We have also seen how Association rules analysis can done with the help of the Apriori algorithm. This is quite helpful in getting product recommendations for customers. So, go ahead and start mining your own datasets.